home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / graphics / show40a.zip / PROMOTE1.SHW < prev    next >
Text File  |  1993-12-01  |  10KB  |  372 lines
  1. ;*********************************************************************;
  2. ; Scriptname.:  PROMOTE1.SHW                                          ;
  3. ; Date.......:  1st. Dec. 1993, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW v. 4.0A, as an example script. ;
  5. ;*********************************************************************;
  6.  
  7. ;Other files:
  8. ;************
  9. ; sound1.shw, scroll1.shw                  ; Tight loop files
  10. ; promote1.gra, chess.pcx, hugo1.gif       ; Graphic files
  11. ; entrance.snd                             ; DataShow Music file
  12. ; goodmorn.wav                             ; Wave Music file
  13. ; show1.scr - show8.scr                    ; Captured screen files
  14.  
  15. SET ESCAPEKEY 27                           ; Script can be stopped any time
  16. SET TIMEOUT 10                             ; Seconds to wait for keyboard
  17.  
  18. VARIABLE CREATE counttimes TYPE NUMBER 1   ; Counts number of runs
  19. IF counttimes NE 1 DO JUMPMARK 10          ; Jump if not 1st run
  20.  
  21. VARIABLE CREATE screentype TYPE NUMBER 0   ; Used to determine video mode
  22. SCREEN CLEAR
  23.  
  24. ;Check the graphics adapter
  25. IF GRAPH VGA DO
  26.    MATH screentype = 3
  27. END
  28. IF GRAPH EGA DO
  29.    MATH screentype = 2
  30. END
  31. IF GRAPH CGA DO
  32.    MATH screentype = 1
  33. END
  34. IF screentype LE 1 DO
  35.    WRITE "THIS PRESENTATION IS MADE FOR EGA/VGA SCREENS!"
  36.    GOXY 1 3
  37.    WRITE "IT CAN BE RUN ON YOUR SCREEN BUT SOME FEATURES ARE LIMITED..."
  38.    GOXY 1 5
  39.    WAIT "PUSH ANY KEY..."
  40. END
  41.  
  42. MARK 10                                    ; Jump here if not 1st run
  43.  
  44. ;Make graphics at beginning of this script
  45. IF screentype GE 2 DO
  46.    SET GRAPHICS EGA1
  47. END
  48. IF screentype EQ 1 DO
  49.    SET GRAPHICS CGA
  50. END
  51.  
  52. COLOR ATTRIBUTE 31             ; Set to blue background, white foreground
  53. COLOR BACKGROUND 1             ; Set the background to blue
  54. COLOR FOREGROUND 15            ; Set the foreground to white
  55. SCREEN CLEAR
  56.  
  57. SET DELAYFACTOR 5
  58. SET SHADOW 79
  59.  
  60. GOXY 28 2 WRITE "Welcome to a presentation of"
  61.  
  62. EFFECT TEXTTYPE 3 6
  63. GOXY 28 3 WRITE "DataShow"
  64. EFFECT TEXTTYPE 0 1
  65.  
  66. GOXY 10 12 DRAW LINE 60
  67. GOXY 10 20 DRAW LINE 60
  68.  
  69. GOXY 1 14
  70.  
  71. SPEAK "W-E-L-L-K-U-M-E"        ; Talk via system speaker
  72. SPEAK "T-OO D-A-TH-A-S-H-U-W"
  73.  
  74. DEFINE
  75. ///////    //////   ///////   //////    ///////  //    //  ///////  //  //  //
  76. //    //  //    //    //     //    //  //        //    //  //   //  //  //  //
  77. //    //  ////////    //     ////////  ////////  ////////  //   //  //  //  //
  78. //    //  //    //    //     //    //        //  //    //  //   //   // //  //
  79. ///////   //    //    //     //    //  ///////   //    //  ///////    //////
  80. END
  81.  
  82. SET DELAYFACTOR 0              ; Set waiting period to zero
  83.  
  84. MOTION LEFT 0                  ; Move defined area across screen
  85. MOTION RIGHT 79                ; Move defined area partly back on screen
  86.  
  87. EFFECT TEXTTYPE 1 6
  88. GOXY 30 20 WRITE "V. 4.0A"
  89. EFFECT TEXTTYPE 0 1
  90. WAIT 3
  91.  
  92. SET SHADOW OFF
  93. IF screentype NE 0 DO
  94.    SET GRAPHICS OFF
  95. END
  96. SET CURSOR OFF
  97.  
  98. SHOW SCREEN "show1.scr" TXT    ; Show screen saved with CAPTURE
  99.  
  100. MUSIC PROCESS "entrance.snd" SND
  101. WAIT 1
  102.  
  103. COLOR BACKGROUND 3             ; Set the background to cyan
  104. SCREEN CLEAR
  105.  
  106. GOXY 1 20
  107. WINDOW 79 4                    ; Set part of screen as window
  108. COLOR BACKGROUND 7
  109. SCREEN CLEAR                   ; Clear only the current window area
  110.  
  111. GOXY 1 1
  112. WINDOW 79 24                   ; Set back to all of the screen
  113.  
  114. COLOR ATTRIBUTE 63             ; Set to cyan background, white foreground
  115.  
  116. GOXY 6 2
  117. DRAW BOX 70 14
  118.  
  119. SET CURSOR ON
  120. SET DELAYFACTOR 5
  121.  
  122. GOXY 10 4
  123. WRITE "Together with the resident program CAPTURE, you can create pre-"
  124. GOXY 10 6
  125. WRITE "sentations fast and easy. You CAPTURE screens from programs and"
  126. GOXY 10 8
  127. WRITE "show them from DATASHOW like this screen to be shown here......"
  128. WAIT 2
  129.  
  130. SCREEN GET                     ; Save the current screen to a buffer
  131. SET CURSOR OFF
  132. SHOW SCREEN "show2.scr" TXT    ; Show screen saved with CAPTURE
  133. WAIT 2
  134. SPEAK "C-A-P-T-U-R-E"
  135. WAIT 1
  136. SPEAK "AE"
  137. SPEAK "S-K-R-EE-EE-N"
  138. WAIT 1
  139. SCREEN WIPE RIGHT
  140. SCREEN PUT                     ; Retrieve saved screen from the buffer
  141. SET CURSOR ON
  142.  
  143. GOXY 10 10
  144. WRITE "It is a simple task  to create scripts  and have them  shown on"
  145. GOXY 10 12
  146. WRITE "the screen  with  incredible flexibility.  Scripts are ordinary"
  147. GOXY 10 14
  148. WRITE "ASCII files.  Here the easy method to make scripts is shown..."
  149.  
  150. SPEAK "P-U-S-H"
  151. WAIT 1
  152. SPEAK "A-N-I"
  153. WAIT 1
  154. SPEAK "K-E-I"
  155.  
  156. GOXY 10 20
  157. WAIT "Push any key"            ; Wait for any key to be pushed or TIMEOUT
  158.  
  159. SET CURSOR OFF
  160. COLOR ATTRIBUTE 0
  161.  
  162. SHOW SCREEN "show3.scr" TXT    ; Show screen saved with CAPTURE
  163. WAIT 4
  164. SHOW SCREEN "show4.scr" TXT    ; Show screen saved with CAPTURE
  165. WAIT 4
  166. SHOW SCREEN "show5.scr" TXT    ; Show screen saved with CAPTURE
  167. WAIT 4
  168. EFFECT GLITTER
  169. WAIT 1
  170.  
  171. SCREEN CLEAR
  172. GOXY 10 4
  173. WRITE "It is also a simple task to create several slides and have them"
  174. GOXY 10 6
  175. WRITE "shown on the screen with incredible flexibility and control."
  176. GOXY 10 9
  177. WRITE "Here the easy method to make slides is shown..."
  178. WAIT 3
  179.  
  180. SHOW SCREEN "show6.scr" TXT    ; Show screen saved with CAPTURE
  181. WAIT 4
  182.  
  183. SET TEXTSOUND ON
  184. COLOR BACKGROUND 4             ; Set the background to red
  185. SCREEN CLEAR
  186. GOXY 10 4
  187. WRITE "You can also write your scripts, slides or graphics to a printer!"
  188. WAIT 3
  189.  
  190. SHOW SCREEN "show7.scr" TXT    ; Show screen saved with CAPTURE
  191. WAIT 2
  192.  
  193. COLOR BACKGROUND 3             ; Set the background to cyan
  194. GOXY 13 5 WRITE "PROMOTE1.SHW"
  195. WAIT 3
  196.  
  197. COLOR ATTRIBUTE 63
  198. SET TEXTSOUND OFF
  199. SET DELAYFACTOR 0
  200.  
  201. SCREEN CLEAR
  202. GOXY 10 10 DRAW BOX 32 2
  203. GOXY 11 11 WRITE "You can create single sounds..."
  204.  
  205. VARIABLE CREATE controlloop TYPE NUMBER 1  ; Variable to control loops
  206.  
  207. MARK 1                         ; Create a mark that can be jumped to
  208. VARIABLE CREATE soundloop TYPE NUMBER 1    ; Variable to control sound
  209. DO "sound1.shw"                ; Call another (sub) program
  210. VARIABLE RELEASE soundloop     ; Clean up after us, for next time round
  211. EFFECT SCROLL DOWN
  212. IF controlloop EQ 3 DO JUMPMARK 2
  213. VARIABLE INCREASE controlloop 1
  214. JUMPMARK 1
  215. MARK 2                         ; Create a mark that can be jumped to
  216.  
  217. VARIABLE RELEASE controlloop   ; Clean up after us, for next time round
  218. WAIT 1
  219.  
  220. GOXY 20 8 WRITE "Or play songs, that you write yourself!"
  221. GOXY 20 9 DRAW LINE 38
  222. MUSIC PROCESS "entrance.snd" SND
  223.  
  224. WAIT 1
  225. GOXY 20 19 WRITE "Or play sounds in the WAV (windows) format!"
  226. GOXY 20 20 DRAW LINE 42
  227. ;MUSIC PROCESS "beback.wav" WAV 33
  228. WAIT 3
  229.  
  230. COLOR BACKGROUND 2             ; Set the background to green
  231. SCREEN CLEAR
  232. GOXY 10 8
  233. WRITE "Besides this you can control a lot of things yourself.  You can"
  234. GOXY 10 10
  235. WRITE "draw your own pictures  or  develop your own logo  in DATASHOW."
  236. GOXY 10 12
  237. WRITE "For this purpose there is a menu for graphic drawing..."
  238. WAIT 6
  239.  
  240. SHOW SCREEN "show8.scr" TXT    ; Show screen saved with CAPTURE
  241. WAIT 4
  242.  
  243. SET DELAYFACTOR 5
  244. GOXY 26 12
  245. WINDOW 50 5
  246. SCREEN CLEAR
  247. COLOR FOREGROUND 1
  248. GOXY 26 12
  249. COLOR ATTRIBUTE 47             ; Set to green background, white foreground
  250. DRAW BOX 50 5
  251. GOXY 3 3 WRITE "By selecting F4 you can draw your own drawings,"
  252. GOXY 3 4 WRITE "and then display them from a script like this.."
  253. WAIT 4
  254. GOXY 1 1
  255. WINDOW 79 24
  256.  
  257. IF screentype LT 2 DO
  258.    SCREEN CLEAR
  259.    WRITE "Here a number of graphic screens would have been show.  - These"
  260.    GOXY 1 3
  261.    WRITE "screens require a high graphic mode and cannot be shown on your"
  262.    GOXY 1 5
  263.    WRITE "screen. This demonstration just skips them and continues..."
  264.    GOXY 1 7
  265.    WAIT "Push any key"
  266. END
  267. IF screentype LT 2 DO JUMPMARK 50
  268.  
  269. SET GRAPHICS EGA1
  270. SHOW SCREEN "promote1.gra" GRA
  271. WAIT 4
  272.  
  273. EFFECT GLITTER
  274.  
  275. SCREEN CLEAR
  276. GOXY 10 10
  277. WRITE "You can also show GRAPHICs created from other programs."
  278. GOXY 10 12
  279. WRITE "Here DataShow display a screen saved in the PCX format -"
  280. GOXY 10 14
  281. WRITE "saved from e.g. the program PaintBrush (TM)."
  282. WAIT 4
  283. SHOW SCREEN "winscr.pcx" PCX
  284. WAIT 4
  285.  
  286. SET GRAPHICS EGA1
  287.  
  288. SCREEN CLEAR
  289. GOXY 10 10
  290. WRITE "AND here DataShow displays a screen saved in the GIF"
  291. GOXY 10 12
  292. WRITE "format; made by CompuServe; with a wealth of files."
  293. WAIT 4
  294. SHOW SCREEN "hugo1.gif" GIF
  295. WAIT 4
  296.  
  297. SET GRAPHICS EGA1
  298.  
  299. COLOR BACKGROUND 1
  300. COLOR FOREGROUND 12
  301. SCREEN CLEAR
  302.  
  303. SET DELAYFACTOR 4
  304.  
  305. GOXY 5 8 WRITE "NEW in DataShow scripts:"
  306. GOXY 5 12 WRITE "Now you can also stay in graphics mode"
  307. GOXY 5 16 WRITE "- and most commands work as in text mode!"
  308. WAIT 3
  309.  
  310. COLOR BACKGROUND 6
  311. COLOR FOREGROUND 14
  312. SCREEN CLEAR
  313. GOXY 10 5
  314. WRITE "Remember to register DataShow. You'll then receive:"
  315. WAIT 2
  316. SET DELAYFACTOR 0
  317. COLOR FOREGROUND 11
  318. GOXY 12 9
  319. WRITE "- A Runtime version called SHOWRUN for distribution of scripts"
  320. WAIT 3
  321. GOXY 12 11
  322. WRITE "- A Manual that can be printed on a printer for overview"
  323. WAIT 3
  324. GOXY 12 13
  325. WRITE "- A Utility package for making more music files"
  326. WAIT 3
  327. GOXY 12 15
  328. WRITE "- And more music and graphics files"
  329. WAIT 3
  330. COLOR FOREGROUND 14
  331. GOXY 10 19
  332. WRITE "See the NOTES.TXT ascii file for further information!"
  333. WAIT 4
  334.  
  335. SET GRAPHICS OFF
  336.  
  337. MARK 50                        ; Jump to here if insufficient graphics
  338.  
  339. VARIABLE CREATE COUNTTIMES TYPE NUMBER 1
  340. DO "scroll1.shw"               ; Call another (sub) program
  341.  
  342. COLOR FOREGROUND 15
  343. SET SHADOW 2
  344.  
  345. GOXY 1 8 WRITE "This was run number: "+counttimes
  346. SPEAK counttimes
  347. WAIT 1
  348. SPEAK "T-I-M-E-S"
  349. WAIT 1
  350.  
  351. GOXY 10 11
  352. WRITE "Now this presentation starts over again, but you can stop it at"
  353. GOXY 10 13
  354. WRITE "any time you wish by pressing the escape key.  Then in DATASHOW"
  355. GOXY 10 15
  356. WRITE "you can try all the marvellous things yourself!  Just type SHOW"
  357. GOXY 10 17
  358. WRITE "at the operating system prompt, and you can try out DataShow."
  359. WAIT 1
  360.  
  361. GOXY 10 20 WRITE "That's all folks..."
  362. SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S"
  363. SET SHADOW OFF
  364. WAIT 6
  365.  
  366. EFFECT GLITTER
  367. SET CURSOR ON
  368.  
  369. VARIABLE INCREASE counttimes 1
  370.  
  371. CONTINUE
  372.